﻿Public Module Validator

    Friend Function IsDecimal(ByVal text As String) As Boolean
        Dim tmp As Decimal
        Dim canConvert = Decimal.TryParse(text, tmp)
        Return canConvert
    End Function

    Friend Function IsInteger(ByVal text As String) As Boolean
        Dim tmp As Int16
        Dim res = Int16.TryParse(text, tmp)
        Return res
    End Function

End Module
